begin "x"
string S;
integer I, J, K;
integer array INF[1:6];
open (0, "dsk", 0, 0, 0, 0, 0, I);
do begin
	print ("File: ");
	s ← inchwl;
	lookup (0, s, I)
end until not I;
fileinfo (INF);
print ("Days: ");
J ← cvd(inchwl);
print ("Mins: ");
K ← cvd(inchwl);
erename(0, s, INF[3] lsh -27, ((INF[2] lsh -3) land '70000) + (INF[3] land '7777) - J,
	((INF[3] lsh -12) land '3777) - K, (INF[3] lsh -23) land '17, I)
end "x"